home *** CD-ROM | disk | FTP | other *** search
- object PropExpert: TPropExpert
- Left = 12
- Top = 174
- BorderIcons = [biSystemMenu]
- BorderStyle = bsDialog
- Caption = 'Property Expert'
- ClientHeight = 276
- ClientWidth = 261
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'System'
- Font.Style = []
- PixelsPerInch = 96
- TextHeight = 16
- object Label1: TLabel
- Left = 8
- Top = 16
- Width = 41
- Height = 16
- Caption = 'Class:'
- end
- object Label2: TLabel
- Left = 8
- Top = 46
- Width = 59
- Height = 16
- Caption = 'Property:'
- end
- object Label3: TLabel
- Left = 8
- Top = 77
- Width = 70
- Height = 16
- Caption = 'Data Type:'
- end
- object Label4: TLabel
- Left = 8
- Top = 107
- Width = 78
- Height = 16
- Caption = 'Array Index:'
- end
- object Label5: TLabel
- Left = 8
- Top = 138
- Width = 50
- Height = 16
- Caption = 'Default:'
- end
- object Label6: TLabel
- Left = 8
- Top = 168
- Width = 40
- Height = 16
- Caption = 'Index:'
- end
- object Label7: TLabel
- Left = 8
- Top = 235
- Width = 133
- Height = 16
- Caption = '(C)1995 Sutron Corp.'
- end
- object Label8: TLabel
- Left = 8
- Top = 251
- Width = 114
- Height = 16
- Caption = 'by: Jon Weisberg'
- end
- object ReadMethod: TCheckBox
- Left = 8
- Top = 208
- Width = 121
- Height = 17
- Hint = 'Click if you want a seperate read method.'
- Caption = 'Read Method'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- end
- object WriteMethod: TCheckBox
- Left = 136
- Top = 208
- Width = 121
- Height = 17
- Hint = 'Click if you want a seperate write method.'
- Caption = 'Write Method'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- end
- object ClassName: TEdit
- Left = 88
- Top = 8
- Width = 161
- Height = 24
- Hint = 'Class name of the component.'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- end
- object PropertyName: TEdit
- Left = 88
- Top = 40
- Width = 161
- Height = 24
- Hint = 'Name of property to add.'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 3
- end
- object DataType: TEdit
- Left = 88
- Top = 72
- Width = 161
- Height = 24
- Hint = 'Data type of the property'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 4
- end
- object ArrayIndex: TEdit
- Left = 88
- Top = 104
- Width = 161
- Height = 24
- Hint = 'Index for array properties'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 5
- end
- object Default: TEdit
- Left = 88
- Top = 136
- Width = 161
- Height = 24
- Hint = 'Default value of the property'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 6
- end
- object Index: TEdit
- Left = 88
- Top = 168
- Width = 161
- Height = 24
- Hint = 'Index number for index'#39'ed properties.'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 7
- end
- object BitBtn1: TBitBtn
- Left = 160
- Top = 235
- Width = 89
- Height = 33
- TabOrder = 8
- Kind = bkOK
- end
- end
-